Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim ̸ As String
    Dim  As String
    Dim ̸ As String
    Dim Ȯ As String
    Dim  As String
    
     = ThisWorkbook.Path & "\"
    ̸ = ThisWorkbook.Name
    
    Ȯ = Mid(̸, InStrRev(̸, "."))
    ̸ = Left(̸, InStrRev(̸, ".") - 1)
    
     = Format(Now, "yymmddhhnnss")
    
    ̸ = ̸ & " - " &  & Ȯ
    
    ThisWorkbook.SaveCopyAs Filename:= & ̸
    
End Sub
